home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / com_net / mail / thor / thor.lha / rexx / requestfile.thor < prev    next >
Encoding:
Text File  |  1994-08-06  |  718 b   |  29 lines
  1. /*
  2. **
  3. ** requestlist.thor - Will open a standard ASL filerequester and let
  4. **                        the user select a file from this requester.
  5. **                        The filename can be returned with full path
  6. **                        or just the filename.
  7. **                        Will return 10 if the user selected CANCEL
  8. **                        in the requester, and 0 on success.
  9. **                        The variable result will hold the file
  10. **                        selected.  No checking is made if
  11. **                        the user do NOT select any file but still
  12. **                        presses OK in the requester!
  13. **
  14. **    Template:
  15. **
  16. **    TITLETEXT=TITLE/A,INITIALDRAWER=ID/A,INITIALFILE=IF,FULLPATH=FP/S,FILEPATTERN=PAT
  17. */
  18.  
  19. options results
  20.  
  21. address THOR.01
  22.  
  23. THORTOFRONT
  24.  
  25. REQUESTFILE TITLE '"Select a file:"' ID '"Work:dloads"' FP PAT '"#?"'
  26.  
  27. say result
  28.  
  29.